home *** CD-ROM | disk | FTP | other *** search
/ Turnbull China Bikeride / Turnbull China Bikeride - Disc 2.iso / STUTTGART / LANG / GNUST / !GNUst / st / Interval < prev    next >
Text File  |  1991-09-13  |  5KB  |  213 lines
  1. "======================================================================
  2. |
  3. |   Interval Method Definitions
  4. |
  5.  ======================================================================"
  6.  
  7.  
  8. "======================================================================
  9. |
  10. | Copyright (C) 1990, 1991 Free Software Foundation, Inc.
  11. | Written by Steve Byrne.
  12. |
  13. | This file is part of GNU Smalltalk.
  14. |
  15. | GNU Smalltalk is free software; you can redistribute it and/or modify it
  16. | under the terms of the GNU General Public License as published by the Free
  17. | Software Foundation; either version 1, or (at your option) any later version.
  18. | 
  19. | GNU Smalltalk is distributed in the hope that it will be useful, but WITHOUT
  20. | ANY WARRANTY; without even the implied warranty of MERCHANTABILITY or FITNESS
  21. | FOR A PARTICULAR PURPOSE.  See the GNU General Public License for more
  22. | details.
  23. | 
  24. | You should have received a copy of the GNU General Public License along with
  25. | GNU Smalltalk; see the file COPYING.  If not, write to the Free Software
  26. | Foundation, 675 Mass Ave, Cambridge, MA 02139, USA.  
  27. |
  28.  ======================================================================"
  29.  
  30.  
  31. "
  32. |     Change Log
  33. | ============================================================================
  34. | Author       Date       Change 
  35. | sbyrne     25 Apr 89      created.
  36. |
  37. "
  38.  
  39. SequenceableCollection subclass: #Interval
  40.                instanceVariableNames: 'start stop step'
  41.                classVariableNames: ''
  42.                poolDictionaries: ''
  43.                category: nil.
  44.  
  45. Interval comment: 
  46. 'My instances represent ranges of objects, typically Magnitude type
  47. objects.  I provide iteration/enumeration messages for producing all the
  48. members that my instance represents.' !
  49.  
  50. !Interval class methodsFor: 'instance creation'!
  51.  
  52. from: startInteger to: stopInteger by: stepInteger
  53.     | int |
  54.     ^self new initializeFrom: startInteger to: stopInteger by: stepInteger
  55. !
  56.  
  57. from: startInteger to: stopInteger    
  58.     ^self from: startInteger to: stopInteger by: 1
  59.  
  60. !!
  61.  
  62.  
  63.  
  64. !Interval methodsFor: 'basic'!
  65.  
  66. " Note to the reader: these two methods (do: and collect:) are implemented
  67. in this expanded way, instead of just making the whileTrue: condition be a
  68. block that's conditionally assigned based on the sign of step and then
  69. invoking a single whileTrue: loop.  However, in this form, the optimizer
  70. can optimize these while loops into direct byte codes and not have to bother
  71. with expensive (relatively) block and method context creation and sending
  72. messages to blocks. "
  73.  
  74. do: aBlock
  75.     | i |
  76.     i _ start.
  77.     step > 0
  78.         ifTrue: [
  79.             [ i <= stop ] whileTrue:
  80.                 [ aBlock value: i.
  81.                   i _ i + step ]
  82.         ]
  83.         ifFalse: [
  84.         [ i >= stop ] whileTrue:
  85.                 [ aBlock value: i.
  86.                   i _ i + step ]
  87.         ]
  88. !
  89.  
  90. collect: aBlock
  91.     | i result j |
  92.     result _ self species new: self size.
  93.     i _ 1.
  94.     j _ start.
  95.     step > 0
  96.         ifTrue: [
  97.         [ j <= stop ]
  98.             whileTrue:
  99.             [ result at: i put: (aBlock value: j).
  100.                 j _ j + step.
  101.             i _ i + 1 ]
  102.         ]
  103.     ifFalse: [
  104.         [ j >= stop ]
  105.             whileTrue:
  106.             [ result at: i put: (aBlock value: j).
  107.               j _ j + step.
  108.               i _ i + 1 ]
  109.         ]
  110. !    
  111.  
  112. size
  113.     step > 0
  114.         ifTrue: [
  115.         stop >= start ifTrue: [ ^(stop - start) // step + 1 ]
  116.                       ifFalse: [ ^0 ]
  117.     ]
  118.     ifFalse: [
  119.             start >= stop ifTrue: [ ^(start - stop) // step + 1 ]
  120.                       ifFalse: [ ^0 ]
  121.     ]
  122. !
  123.  
  124. species
  125.     ^Array
  126. !
  127.  
  128.  
  129. at: index
  130.     (index >= 1 and: [index <= self size])
  131.         ifTrue: [ ^start + (step * (index - 1)) ]
  132.     ifFalse: [ self error: 'subscript out of bounds' ]
  133. !
  134.  
  135. at: index put: anObject
  136.     self error: 'you cannot store into an Interval'
  137. !
  138.  
  139. add: newObject
  140.     self error: 'elements cannot be add3ed to an Interval'
  141. !
  142.  
  143. remove: newObject
  144.     self error: 'elements canot be removed from an Interval'
  145. !!
  146.  
  147.  
  148.  
  149. !Interval methodsFor: 'testing'!
  150.  
  151. = anInterval
  152.     ^(start = anInterval start) &
  153.     (stop = anInterval stop) &
  154.     (step = anInterval step)
  155. !
  156.  
  157. hash
  158.     ^(start bitXor: stop) bitXor: step
  159. !!
  160.  
  161.  
  162.  
  163. !Interval methodsFor: 'printing'!
  164.  
  165. printOn: aStream
  166.     aStream nextPutAll: self classNameString.
  167.     aStream nextPut: Character space.
  168.     start printOn: aStream.
  169.     aStream nextPut: $,.
  170.     stop printOn: aStream.
  171.     aStream nextPut: $,.
  172.     step printOn: aStream
  173. !!
  174.  
  175.  
  176.  
  177. !Interval methodsFor: 'storing'!
  178.  
  179. storeOn: aStream
  180.     aStream nextPut: $(.
  181.     aStream nextPutAll: self classNameString.
  182.     aStream nextPutAll: ' from: '.
  183.     start storeOn: aStream.
  184.     aStream nextPutAll: ' to: '.
  185.     stop storeOn: aStream.
  186.     aStream nextPutAll: ' by: '.
  187.     step storeOn: aStream.
  188.     aStream nextPut: $)
  189. !!
  190.  
  191.  
  192.  
  193. !Interval methodsFor: 'private methods'!
  194.  
  195. initializeFrom: startInteger to: stopInteger by: stepInteger
  196.     start _ startInteger.
  197.     stop _ stopInteger.
  198.     step _ stepInteger
  199. !
  200.  
  201. start
  202.     ^start
  203. !
  204.  
  205. stop
  206.     ^stop
  207. !
  208.  
  209. step
  210.     ^step
  211. !!
  212.  
  213.